home *** CD-ROM | disk | FTP | other *** search
/ CompuServe CD 495W / Compuserve XTreme Edition 495W.iso / shopping / toyota / toyota.dir / 00428.ls < prev    next >
Encoding:
Text File  |  1995-08-09  |  398 b   |  14 lines
  1. on mouseUp
  2.   cursor(4)
  3.   mySound("cashreg.aif")
  4.   set myButton to the clickOn
  5.   repeat with n = 0 to 11
  6.     if (the number of cast "first radio" + n) <> the castNum of sprite myButton then
  7.       set the hilite of cast (the number of cast "first radio" + n) to 0
  8.     end if
  9.   end repeat
  10.   set the hilite of cast the castNum of sprite myButton to 1
  11.   go(label("$" & the clickOn - 5))
  12.   cursor(0)
  13. end
  14.